proc divide_mod(a,b:int, res,rem: var int) =
  res = a div b
  rem = a mod b

var x,y:int
divide_mod(5,3,x,y)
echo x, ',', ' ', y
